--[[
   编码: WMS-105-02
   名称: 
   作者：
   日期：2025-1-29


   函数： AfterDataObjDelete

   功能:
        -- 删除【波次组成】【波次明细】
        -- 删除入库波次计划出库的料箱等，更新入库单信息

   更改记录:
 
--]]

wms_base = require ("wms_base")
local O_WAVE_STATE_REQUEST = 1                      -- 已经提交配货申请
local O_WAVE_STATE_DISTRIBUTION_OK = 2              -- 配货完成
local O_WAVE_STATE_RUN = 3                          -- 作业中
local O_WAVE_STATE_ERR = 5                          -- 错误

function AfterDataObjDelete( strLuaDEID )
    local   nRet, strRetInfo

    -- 获取 S_NO
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_WAVE_NO", "N_B_STATE","S_WH_CODE","S_AREA_CODE","N_PRE_B_STATE" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 

    local obj_attrs = json.decode( strRetInfo ) 
    local wave_no = obj_attrs[1].value                
    local b_state = lua.Get_NumAttrValue( obj_attrs[2].value )   
    local wh_code = lua.Get_StrAttrValue( obj_attrs[3].value )   
    local area_code = lua.Get_StrAttrValue( obj_attrs[4].value )   
    local per_b_state = lua.Get_NumAttrValue( obj_attrs[5].value )   
    local strCondition

    --作业中的出库波次无法删除
    if ( wave_no == '' or wave_no == nil or b_state == O_WAVE_STATE_RUN ) then return end           
    -- 如果状态是错误，需要获取错误前的状态
    if ( b_state == O_WAVE_STATE_ERR ) then b_state = per_b_state end
    -- 1 未配货，已经提交配货申请
    if ( b_state == O_WAVE_STATE_REQUEST ) then
        -- 配货中
        -- 需要获取波次明细中的货品数量，申请释放分配量
        strCondition = "S_WAVE_NO = '"..wave_no.."'"
        local strOrder = "N_ROW_NO"
        nRet, strRetInfo = mobox.queryDataObjAttr( strLuaDEID, "OW_Detail", strCondition, strOrder )
        if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【波次明细】失败! "..strRetInfo ) end

        if ( strRetInfo ~= '' ) then 
            local ow_detail
            local retObjs = json.decode( strRetInfo )
            local n
            local alloc_qty_change = {}     -- 分配量变化

            for n = 1, #retObjs do
                nRet, ow_detail = m3.ObjAttrStrToLuaObj( "OW_Detail", lua.table2str(retObjs[n].attrs) )   
                if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "m3.ObjAttrStrToLuaObj 失败! "..ow_detail ) end
                -- 生成分配量变化输入参数
                local alloc_qty_info = {
                    item_code = ow_detail.item_code,
                    item_name = ow_detail.item_name,
                    qty = ow_detail.qty,
                    wh_code = wh_code,
                    area_code = area_code
                }
                table.insert( alloc_qty_change, alloc_qty_info )                          
            end 

            -- 减仓库分配量处理
            if ( #alloc_qty_change > 0 ) then
                local str_alloc_qty_change = lua.table2str( alloc_qty_change )
                if ( wh_code ~= '' and wh_code ~= nil ) then
                    -- 10 减仓库分配量
                    nRet, strRetInfo = wms.wms_AddWHInventoryChange(strLuaDEID, 10, str_alloc_qty_change )
                    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "wms_AddWHInventoryChange 失败! "..strRetInfo ) end
                end

                if ( area_code ~= '' and area_code ~= nil ) then
                    -- 11 减库区分配量
                    nRet, strRetInfo = wms.wms_AddWHInventoryChange(strLuaDEID, 11, str_alloc_qty_change )
                    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "wms_AddWHInventoryChange 失败! "..strRetInfo ) end
                end        
            end               
        end 
        
        -- V4.0 MDF BY HAN 20241214
        -- 和出库波次相关的出库单的状态要设置为 0 -- 未配货
        local strUpdateSql = "N_B_STATE = 0, S_WAVE_NO = ''"
        strCondition = "S_WAVE_NO = '"..wave_no.."'"
        nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strUpdateSql )
        if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】信息失败!"..strRetInfo ) end 

    -- 已配货
    elseif ( b_state == O_WAVE_STATE_DISTRIBUTION_OK ) then
        -- 配货完成需要删除配盘
        strCondition = "S_BS_TYPE ='Outbound_Wave' AND S_BS_NO = '"..wave_no.."'" 
        nRet, strRetInfo = mobox.deleteDataObject(strLuaDEID, "Distribution_CNTR", strCondition)
        if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【配盘】失败!"..strRetInfo) end   
    end     
 
    -- 删除波次组成
    local strCondition = "S_WAVE_NO = '"..wave_no.."'"
    nRet, strRetInfo = mobox.dbdeleteData( strLuaDEID, "OW_Compose", strCondition )
    if ( nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除出库波次相关的【波次组成】失败!  "..strRetInfo ) end  

    -- 删除入库波次组成
    local strCondition = "S_WAVE_NO = '"..wave_no.."'"
    nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "OW_Detail", strCondition)
    if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【OW_Detail】失败!"..strRetInfo) end   
    
    -- 更新【出库单】中的 S_WAVE_NO，S_STATION_NO， S_OPERATOR_NAME, S_OPERATOR, N_B_STATE
    local strUpdateSql = "N_B_STATE = 0, S_WAVE_NO = '', S_STATION_NO ='', S_OPERATOR_NAME = '', S_OPERATOR = '', S_PICKBOX_CODE=''"
    local strCondition = "S_WAVE_NO = '"..wave_no.."'"
    nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strUpdateSql )
    if ( nRet ~= 0 ) then  return 2, "更新【出库单】信息失败!"..strRetInfo end      
end